10 REM       *** AUTONUM 64 ***
11 REM
12 REM          AUTOMATISCHE
13 REM      ZEILENNUMMERNVORGABE
14 REM
15 REM
16 REM  1. ZEILENNR. LOW -BYTE IN 49294
17 REM  1. ZEILENNR. HIGH-BYTE IN 49295
18 REM  ZEILENABSTAND (1-255)  IN 49296
19 REM
20 REM
21 REM        EIN UTILITY VON:
22 REM
23 REM          TH.  SCHULZ
24 REM        POSTFACH 602542
25 REM        2000 HAMBURG 60
26 REM        TEL.040/6316055
27 REM
28 REM
29 POKE49294,0:POKE49295,0:POKE49296,10
30 POKE55,0:POKE56,195:AD=49152:Z=0
31 POKE53280,0:POKE53281,0:PRINTCHR$(30);
32 PRINTCHR$(147);
33 READX:IFX=-1THEN51
34 POKEAD,X:AD=AD+1:Z=Z+X:GOTO33
35 DATA32,115,0,201,95,240,6,32,121,0,76
36 DATA231,167,32,115,0,24,173,144,192
37 DATA109,142,192,141,142,192,144,3,238
38 DATA143,192,162,23,160,0,24,32,10,229
39 DATA173,143,192,174,142,192,32,205
40 DATA189,169,152,133,251,169,7,133,252
41 DATA169,119,133,253,169,2,133,254,160
42 DATA0,177,251,201,32,240,6,145,253
43 DATA200,76,66,192,132,198,160,0,162,23
44 DATA24,32,10,229,169,15,141,24,212
45 DATA169,207,141,7,212,169,34,141,8
46 DATA212,169,240,141,13,212,169,17,141
47 DATA11,212,162,64,160,255,136,208,253
48 DATA202,208,248,169,0,141,11,212,76
49 DATA128,164,169,0,141,8,3,169,192
50 DATA141,9,3,96,-1
51 IFZ<>18097THEN55
52 PRINTCHR$(147)CHR$(17);
53 PRINT"AUTONUM 64  ZEILENNR.VORG.:  _";
54 PRINTCHR$(18)"RETURN":SYS49283:NEW
55 PRINTCHR$(17)"FEHLER IN DATAS!
56 [153][199](17)"CHECKSUMME   "[199](18);
57 [153]" IST:"[199](146)Z[199](18);
58 [153][163]15)"SOLL:"[199](146)18097:[128]